home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_232_View Text File.bin < prev    next >
Text File  |  1995-11-23  |  758b  |  30 lines
  1. ItemType: WIND
  2. Rect: 54,274,534,456
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: View Text File
  8. Params: i0_TopLeft┬i2_Text
  9.  
  10. ItemType: PUSH
  11. Rect: 331,156,403,176
  12. Name: Done
  13. DefaultItem: TRUE
  14. AutoClose: TRUE
  15.  
  16. ItemType: TEXT
  17. Rect: 8,2,475,146
  18. TextFont: Monaco
  19. TextSize: 9
  20. AutoSize: FALSE
  21. Name: Title
  22. Scrolling: TRUE
  23. Inset: 0
  24.  
  25. ItemType: PUSH
  26. Rect: 48,158,164,175
  27. TextFont: Geneva
  28. TextSize: 10
  29. Name: View another file╔
  30. Script: answer file "Locate a text file to view╔" of type text┬if it¡empty then┬  put it into filer┬  set cursor to watch┬  open file filer┬  repeat┬    read from file filer for 20000┬    if it=empty then exit repeat┬    put it into theData┬  end repeat┬  close file filer┬  wsSet wdID,"Title","Text",theData┬end if┬